home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 July
/
EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso
/
earcd
/
biz
/
misc
/
gestaban.lha
/
gestacompte_dp
/
Installation
< prev
next >
Wrap
Text File
|
1997-03-03
|
4KB
|
168 lines
; $VER: GestaCompte Banque V2.01
; Script d'installation V1.0 (28.02.97)
; ROM 2.X minimum
;============================== Variables ================================
(set @source-dir "/GestaCompte_DP")
(set #Kickstart "\n Désolé, il vous faut absolument le kickstart 2.0 ou\n plus pour installer ce programme.")
(set #Destdir "Veuillez indiquer le chemin d'accès complet de votre répertoire GestaCompte")
(set #Message "Un répertoire nommé 'GestaCompte va être créé dans le chemin que vous allez choisir.")
(set #Icones "Quel style d'icônes voulez-vous installer ?")
(set #Termine "\n\nL'installation s'est exécutée sans problème.\n\nToute l'équipe d'A.F.L.E. vous souhaite de trouver beaucoup de plaisir dans l'utilisation de ce programme.")
;===================== Début installation =======================
(if (= @language "français")
(
(if (< (/ (getversion) 65536) 37)
(
(message #Kickstart)
(exit (quiet))
)
)
(set chemin
(tackon
(askdir
(prompt #Message)
(help @askdir-help)
(default "SYS:")
)
"GestaCompte"
)
)
(set Icones (askchoice (prompt #Icones)
(help @askchoice-help)
(choices "MagicWB" "NewIcons" "Aucun")
(default 0)
)
)
(set @source-dest chemin)
(set @source_boutons (tackon chemin "boutons"))
(makedir @source_boutons)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Lisez-moi!"))
(dest @source-dest)
(infos)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/GestaCompte"))
(dest @source-dest)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/Libelles"))
(dest @source-dest)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/Assigner_GestaCompte"))
(dest @source-dest)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/"))
(dest @source-dest)
(pattern "Com#?")
)
(if (= Icones 0)
(
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/boutons/MagicWB/"))
(dest (cat @source-dest "/boutons"))
(all)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/Icônes/MagicWB/"))
(dest @source-dest)
(all)
)
))
(if (or (= Icones 1) (= Icones 2))
(
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/boutons/NewIcons"))
(dest (cat @source-dest "/boutons"))
(all)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/Icônes/NewIcons"))
(dest @source-dest)
(all)
)
))
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/Images"))
(dest (cat @source-dest "/Images"))
(all)
(infos)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/Scripts_ARexx"))
(dest (cat @source-dest "/Scripts_ARexx"))
(all)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/envarc"))
(dest (cat @source-dest "/envarc"))
(all)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/libs"))
(dest (cat @source-dest "/libs"))
(all)
)
(copyfiles
(prompt)
(help @copyfiles-help)
(source (cat @source-dir "/Comptes/fonts"))
(dest (cat @source-dest "/fonts"))
(all)
)
))
(set @default-dest @source-dest)
(exit #Termine)